home *** CD-ROM | disk | FTP | other *** search
/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / pc / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / Misc / DXSetup / overwrit.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-08  |  4.8 KB  |  153 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOverwrite 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "frmOverwrite"
  5.    ClientHeight    =   3990
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5160
  9.    ClipControls    =   0   'False
  10.    HasDC           =   0   'False
  11.    Icon            =   "Overwrit.frx":0000
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    NegotiateMenus  =   0   'False
  15.    ScaleHeight     =   3990
  16.    ScaleWidth      =   5160
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.CommandButton cmdNoAll 
  20.       Caption         =   "cmdNoAll"
  21.       Height          =   375
  22.       Left            =   3720
  23.       TabIndex        =   2
  24.       Top             =   3480
  25.       Width           =   1315
  26.    End
  27.    Begin VB.CommandButton cmdNo 
  28.       Caption         =   "cmdNo"
  29.       Height          =   375
  30.       Left            =   2280
  31.       TabIndex        =   1
  32.       Top             =   3480
  33.       Width           =   1315
  34.    End
  35.    Begin VB.CommandButton cmdYes 
  36.       Caption         =   "cmdYes"
  37.       Default         =   -1  'True
  38.       Height          =   375
  39.       Left            =   840
  40.       TabIndex        =   0
  41.       Top             =   3480
  42.       Width           =   1315
  43.    End
  44.    Begin VB.Label lblVersion 
  45.       BackStyle       =   0  'Transparent
  46.       Caption         =   "lblVersion"
  47.       Height          =   255
  48.       Left            =   120
  49.       TabIndex        =   7
  50.       Top             =   2280
  51.       Width           =   4935
  52.    End
  53.    Begin VB.Label lblDescription 
  54.       BackStyle       =   0  'Transparent
  55.       Caption         =   "lblDescription"
  56.       Height          =   615
  57.       Left            =   120
  58.       TabIndex        =   6
  59.       Top             =   1560
  60.       Width           =   4935
  61.    End
  62.    Begin VB.Label lblFileName 
  63.       BackStyle       =   0  'Transparent
  64.       Caption         =   "lblFileName"
  65.       Height          =   615
  66.       Left            =   120
  67.       TabIndex        =   5
  68.       Top             =   840
  69.       Width           =   4935
  70.    End
  71.    Begin VB.Label lblCopy 
  72.       BackStyle       =   0  'Transparent
  73.       Caption         =   "lblCopy"
  74.       Height          =   615
  75.       Left            =   120
  76.       TabIndex        =   4
  77.       Top             =   2640
  78.       Width           =   4935
  79.    End
  80.    Begin VB.Label lblTopInfo 
  81.       BackStyle       =   0  'Transparent
  82.       Caption         =   "lblTopInfo"
  83.       Height          =   615
  84.       Left            =   120
  85.       TabIndex        =   3
  86.       Top             =   120
  87.       Width           =   4935
  88.    End
  89. Attribute VB_Name = "frmOverwrite"
  90. Attribute VB_GlobalNameSpace = False
  91. Attribute VB_Creatable = False
  92. Attribute VB_PredeclaredId = True
  93. Attribute VB_Exposed = False
  94. Option Explicit
  95. Private msFile As String
  96. Private msDesc As String
  97. Private msVer As String
  98. Private mfFormLoaded As Boolean
  99. Private mfYes As Boolean
  100. Private mfNo As Boolean
  101. Private mfNoToAll As Boolean
  102. Private Sub cmdNo_Click()
  103.     mfNo = True
  104.     Unload Me
  105. End Sub
  106. Private Sub cmdNoAll_Click()
  107.     mfNoToAll = True
  108.     Unload Me
  109. End Sub
  110. Private Sub cmdYes_Click()
  111.     mfYes = True
  112.     Unload Me
  113. End Sub
  114. Private Sub Form_Load()
  115.     mfFormLoaded = True
  116.     SetFormFont Me
  117.     'Load the strings for this form.
  118.     Caption = ResolveResString(resOVERWRITEFORM)
  119.     lblTopInfo.Caption = ResolveResString(resOVERWRITEINFO)
  120.     lblCopy.Caption = ResolveResString(resOVERWRITEKEEP)
  121.     cmdYes.Caption = ResolveResString(resOVERYES)
  122.     cmdNo.Caption = ResolveResString(resOVERNO)
  123.     cmdNoAll.Caption = ResolveResString(resOVERNOTOALL)
  124.     lblFileName.Caption = ResolveResString(resOVERWRITEFILE, gstrPIPE1, msFile)
  125.     lblDescription.Caption = ResolveResString(resOVERWRITEDESC, gstrPIPE1, msDesc)
  126.     lblVersion.Caption = ResolveResString(resOVERWRITEVER, gstrPIPE1, msVer)
  127.     SetMousePtr vbNormal
  128. End Sub
  129. 'public access to local vars
  130. Public Property Let FileName(sName As String)
  131.     msFile = sName
  132.     If mfFormLoaded Then lblFileName.Caption = ResolveResString(resOVERWRITEFILE, gstrPIPE1, msFile)
  133. End Property
  134. Public Property Let Description(sDesc As String)
  135.     msDesc = sDesc
  136.     If mfFormLoaded Then lblDescription.Caption = ResolveResString(resOVERWRITEDESC, gstrPIPE1, msDesc)
  137. End Property
  138. Public Property Let Version(sVer As String)
  139.     msVer = sVer
  140.     If mfFormLoaded Then lblVersion.Caption = ResolveResString(resOVERWRITEVER, gstrPIPE1, msVer)
  141. End Property
  142. Private Sub Form_Unload(Cancel As Integer)
  143.     SetMousePtr vbHourglass
  144. End Sub
  145. Public Property Get ReturnVal() As Byte
  146.     'Return 0 for yes
  147.     'return 1 for no
  148.     'return 2 for no to all
  149.     If mfYes Then ReturnVal = owYes
  150.     If mfNo Then ReturnVal = owNo
  151.     If mfNoToAll Then ReturnVal = owNoToAll
  152. End Property
  153.